home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program98
< prev
next >
Wrap
Text File
|
2007-02-28
|
688b
|
37 lines
0010 // PROGRAM 98
0020 //
0030 // COMELY KATE
0040 //
0050 // TO FACTORISE A NUMBER
0060 //
0070 INPUT "GIVEN NUMBER ? ": NUMBER
0080 FACTORISE(NUMBER)
0090 END
0100 //
0110 PROC FACTORISE(N)
0120 DIVISOR:=2
0130 REMAINDER:=0
0140 PRINT "THE PRIME FACTORS OF ",N," ARE"
0150 PRINT
0160 REPEAT
0170 DIVIDE(2,N,REMAINDER)
0180 UNTIL REMAINDER<>0
0190 DIVISOR:=1
0200 REPEAT
0210 DIVISOR:=DIVISOR+2
0220 IF DIVISOR<=N THEN
0230 REPEAT
0240 DIVIDE(DIVISOR,N,REMAINDER)
0250 UNTIL REMAINDER<>0
0260 ENDIF
0270 UNTIL DIVISOR>N
0280 ENDPROC FACTORISE
0290 //
0300 PROC DIVIDE(A,REF B,REF R)
0310 R:=B MOD A
0320 IF R=0 THEN
0330 PRINT A;
0340 B:=B DIV A
0350 ENDIF
0360 ENDPROC DIVIDE